Private key(43) As String
Private value(43) As String
Public Sub ini()
    'key
    key(0) = "unexpected"
    key(1) = "add_log_fail"
    key(2) = "find_value_dt_fail"
    key(3) = "find_tc_dt_error"
    key(4) = "load_dt_redup"
    key(5) = "find_page_fail"
    key(6) = "tagname_null"
    key(7) = "out_dt_fail"
    key(8) = "find_tc_dt_error"
    key(9) = "find_alert_error"
    key(10) = "pop_window_fail"
    key(11) = "page_syn_fail"
    key(12) = "page_syn_error"
    key(13) = "paste_excel_fail"
    key(14) = "get_ie_failed"
    key(15) = "open_ie_failed"
    key(16) = "close_all_ie_fail"
    key(17) = "fail_find_obj"
    key(18) = "typeText_pass"
    key(19) = "typeText_fail"
    key(20) = "doubleClick_pass"
    key(21) = "doubleClick_fail"
    key(22) = "clickButton_pass"
    key(23) = "clickButton_fail"
    key(24) = "clickLink_pass"
    key(25) = "clickLink_fail"
    key(26) = "focus_pass"
    key(27) = "focus_fail"
    key(28) = "mouseover_pass"
    key(29) = "mouseover_fail"
    key(30) = "select_pass"
    key(31) = "select_fail"
    key(32) = "check_checkbox_pass"
    key(33) = "uncheck_checkbox_pass"
    key(34) = "checkbox_fail"
    key(35) = "check_radio_pass"
    key(36) = "uncheck_raido_pass"
    key(37) = "radio_fail"
    key(38) = "standard_checkpoint_fail"
    key(39) = "syn_fail"
    key(40) = "table_syn_fail"
    key(41) = "sendkey_pass"
    key(42) = "sendkey_fail"
    key(43) = "find_element_fail"
    'value
    value(0) = " Unexpected Error! Please contact Admin, Thanks!"
    value(1) = " Add log function failed."
    value(2) = " Failed to find {objname} in datatable."
    value(3) = " Find {objname} in datatable sheet error."
    value(4) = " {objname} is reduplicated in datatable sheet."
    value(5) = " Find PageEle in excel Error, please check page {objname}'s logical name is exist."
    value(6) = " Find element in ObjRep error, {objname}'s tagName can not be null."
    value(7) = " Output function {objname} = {objvalue} failed."
    value(8) = " Find {objname} in datatable error."
    value(9) = " Find alert {objname} error."
    value(10) = "Handler {objname} pop-up window function failed."
    value(11) = "{objname} page synchronization failed."
    value(12) = "{objname} page synchronization error."
    value(13) = "Paste excel function failed."
    value(14) = "Get {objvalue} ie function failed."
    value(15) = "Open {objvalue} ie function failed."
    value(16) = "Close all ie function failed."
    value(17) = "Failed to find {objname} object."
    value(18) = "Entered {objname} - {objvalue}."
    value(19) = "Function of {objname} object failed."
    value(20) = "Double clicked {objname} object."
    value(21) = "Double clicked function of {objname} object failed."
    value(22) = "Clicked {objname} button."
    value(23) = "Clicked function of {objname} button failed."
    value(24) = "Clicked {objname} link."
    value(25) = "Clicked function of {objname} link failed."
    value(26) = "Focused {objname} object."
    value(27) = "Focused function of {objname} object failed."
    value(28) = "Mouse move on {objname} object."
    value(29) = "Mouse move function of {objname} object failed."
    value(30) = "Selected {objvalue} in {objname}."
    value(31) = "Selected {objvalue} function of {objname} object failed."
    value(32) = "Checked {objname} checkbox."
    value(33) = "Unchecked {objname} checkbox."
    value(34) = "Checked function of {objname} checkbox failed."
    value(35) = "Checked {objname} radio."
    value(36) = "Unchecked {objname} radio."
    value(37) = "Checked function of {objname} radio failed."
    value(38) = "{objname} Standard checkpoint failed."
    value(39) = "{objname} synchronization point failed."
    value(40) = "{objname} table synchronization point failed."
    value(41) = "Send {objvalue} key to {objname} object."
    value(42) = "Send {objvalue} key function of {objname} object failed."
    value(43) = "Element {objname} cannot be found in ObjRep."
End Sub

Public Function getProperty(keyName As String) As String
    For i = 0 To UBound(key)
        If key(i) = keyName Then
            getProperty = value(i)
            Exit Function
        End If
    Next
    getProperty = Empty
End Function
